



























FOR FOR SUCCESS A look at 
how a probability theorem such as Bayes’ rule 16/ 
can be applied to forecasting problems 











TOURING THE CIRCUIT We begin a 
short series looking at the components of the 
printed circuit boards of various micros 





HE DOG AND BUCKET The interactive 
character adventure game listing is 
presented in its entirety 


JEWEL OF A SYSTEM A new series : 





















begins on Digital Research’s GEM _ 16/0 





1) What function is performed by the data division of 

a COBOL program? 

2) What are ‘streams’ and why are they necessary? — 
Why does object-oriented programming lend 

itself easilytothe ‘modular approach? = 

4) What is a microprogrammable computer used 


COMMON USAGE Cos01 is the mos 
widely used computer language for business 1563 
and commercial applications 


















FROM D I ONT 
_ STREAM A weekly glossary of computing 6 
terms ; 
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- PROGRAMMING PROJECTS 


~SPREADING OUT Several new functions 
are added to our spreadsheet program 
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_ CHANGE OF KEY Through the Amstrad 
CPC operating system, we can reconfigure 


the default values of the keyboard 


INSIDE 


INDEX A complete index to issues 73 to 84 iver 



































TOURING 


THE CIRCUIT 





Understanding the complex interplay of the 
components that make up a microcomputer 
isn’t easy. We begin a Series of tours around 
the printed circuit boards of typical home 
micros, discussing the functions of the 
various components and how they interact. 
We start our guided tour at the most obvious 
point — the microprocessor. 





Looking at a photomicrograph of a typical 
microprocessor, we can make out geometrical 
grids, which are the processor’s internal registers, a 
number of rectangular pads around the outside to 
which external connections are made, and areas of 
jumbled logic circuitry. 

It is also possible to discern groups of lines 
that are the internal communication links between 
the various components on the chip. We can see 
that the architecture of a processor is determined 
by the constraints of two-dimensional layout and 
by the physical number of components that can be 
put on to a chip. 
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ARCHITECTURE 


What processor instructions really do is set in 
motion a chain of electronic ‘microevents’ and this 
is the point at which the line dividing software and 
hardware is drawn. Let’s illustrate this by taking 
the example of a simple instruction: adding a 
number to the value in the accumulator and 
putting the result back in the accumulator. 

The diagram given here shows a typical 
example of processor architecture in a simplified 
form. All the internal registers are linked via an 
internal data bus and each register has control lines 
connected to it so that all data transfer operations 


staat 


gata 


F photo-micrograph 
| isa highly magnified 
» picture of a Zilog Z80 
“7 chip, currently used 
=" in, among others, 
' the Sinclair Spectrum 
and Amstrad CPC 
range. The Z80 
7 has over 25 on-chip 
registers that show 
up as rectangular patterns. 
The bus connections can be 
clearly seen; around th 
perimeter 40 connective pads 
link the chip to the legs which 


cone? 
an 


~ allowitto be mounted ina 


PCB 


The Processor 

The diagram here shows the 
typical architecture of an eight- 
bit processor. The on-chip 
components communicate via 
an internal data bus and internal 
control signals, but keep in 
touch with memory and other 
devices via control signals and 
external data and address buses 
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Microstep Circuit 

One particular control signal, 
Output enable on the memory 
data register, needs to be set 
up at step 2 and step 7 of the 
fetch-execute cycle for our 
example ADD instruction. 
This simple logic circuit 
combines signal 206 from the 
instruction decoder with the 


. two appropriate decoded 


counter signals to trigger EO 
onM 




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































between registers and the data bus are 
synchronised. These control lines link into a 
central control unit, which will be discussed in 


-more detail later. 


The immediate ADD instruction mentioned 
earlier starts life as a couple of bytes in a larger 
program stored in the computer’s memory. The 
first byte holds the instruction and the second 
holds the number to be added. To obey this 
instruction the processor must first bring the 
instruction byte from memory and then execute it 
— the fetch-execute cycle. The processor knows 
where to get the instruction from, as its address will 
be held in the program counter (PC). In 
describing the fetch-execute cycle, the part we are 
particularly interested in is how the control unit 
manages the various transfers between registers. 
This is done by sending ‘enable’ signals to the 
correct register at the night time. The system we 
have used to distinguish these signals is as follows: 
El enable input to register from internal data bus 
EO enable output from a register to data bus 
EOC enable output to the control unit 
EOA enable output to the address bus 

The ‘fetch’ cycle comprises these steps: 
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At the end of these four steps we've got the ADD 
instruction into the control unit and the program 
counter pointing at the byte holding the number to 
be added. Before looking at the way in which the 
instruction is obeyed let’s look at the control unit. 

The control unit comprises a register into which 
the current instruction is put, a decoder that 
decodes the 8 bits that make up the instruction 
byte into 256 separate lines, one for each possible 
value that the byte can hold. (Ifnot all 256 possible 
codes are used for instruction codes the number of 
decoded lines may be less). These decoded lines 
feed into the microprogram unit, together with the 
decoded output from a _ counter. ‘The 
microprogram unit is where the actual function of 
each instruction code is held as a logic circuit, and 
the outputs from these logic circuits form the 
various register enable signals. Let’s take a look at 
the ‘execute’ part of the cycle: 





Whilst the ‘fetch’ part of the cycle is the same in all 
cases, the ‘execute’ part is custom-designed to 
carry out a particular job — in this case to get the 
next byte in the program and add it to the value in 
the accumulator. Each instruction code has its 
own microprogram implemented as a series of 
logic gates. If we look at one particular enable 
signal — that which enables output from the 
memory data register (EO on M) — we can see how 
the above ‘execute’ sequence is implemented. EO 
on M needs to be set at step 3 and step 7 of the 
fetch-execute cycle. Let us suppose that the code 
for our immediate ADD instruction is 11001110, or 
206 in decimal. By simply gating the step counter 
line C7 with line 206 from the instruction decoder 
and ORing the result with C3, we obtain an enable 
output signal for the memory data register. Of 
course, many different instructions may need to 
send enable output signals to this register, but it’s 
simply a matter of ORing these together. 

In the next instalment we shall start looking at 
how the complete system is built around the 
computer. 

Processor manufacturers use special machines 
known as microprogrammable computers to 
program the micro-steps of an instruction from 
software. These are often used in the design and 
development of new processors, where the 
instruction set can be developed before 
committing it to hardware in the control unit. 
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‘HERE'S YOVR COBOL SOFIWARE SIR...OH, AND YOV'LL BE NEEDING SOME PAPER FOR THE LISTINGS !{/ 





pre ee Sr ee ene 


Although little use has been made of COBOL 
on home micros, its wide use and easy 
transferability have made it a leader for 
commercial applications. In this _ first 
instalment, we outline the four main 
divisions of the language and discuss the 
data division in more detail. 
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Copot (Common Business Oriented Language) is 
by far the most widely used programming 
language worldwide, and although Basic may be 
the more widely known, cosot probably accounts 
for more actual lines of code than all other 
languages put together. This isn’t just because 
COBOL is verbose, needing many lines for even a 
simple program, but because it’s been the major 
language (almost the only language) for 
commercial and business use. 

Coso_ is a heavily standardised language. In 
fact, there is a permanent body, the CODAsyL 
committee, which oversees its use and 
development. This high degree of standardisation 
is important for several reasons. It’s vital that a 
commercial organisation should be able to 
transfer its software, which could easily be one of 
its most valuable assets, from one computer to 
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Divided Structure 

Programmers familiar only with 
BASIC may find the structure of 
a COBOL program somewhat 
alien, but it is well-adapted to 
the demands made on the 
language, especially readability, 
portability, and the need for 
frequent checking and updating 
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another without making any major changes, or 


preferably without making any changes at all. 


Many companies running a large mainframe 
computer will not want to waste valuable time on 
that machine and will expect program 
development to be done on a completely different 
machine, so again it’s vital that the programs can 
be transferred easily. 

A further factor is that commercial programs 
are rather different from BASic programs that we 
write on our home micros. They are very large, 
often consisting of tens of thousands of lines of 
code, and tend to be written by a team rather than 
a single programmer, all of which is not conducive 
to the production of bug-free code. Programs are 
expected to have a life of several years, during 
which time bugs will be removed, and 
amendments, extensions and improvements 
made. All these revisions will be carried out by one 
Or more programmers who will in all probability 
not be the same ones who wrote the original 
program. : 

These restrictions — and the fact that the 
programs are written to a rigid specification — can 
make programming in copoL one of the most 
boring jobs around. However, there is plenty of 
interest in the language itself and there is none 
better for tasks that require complicated file 
handling. 

The appearance and operation of a COBOL 
program is very different from other languages, 
although buried beneath the verbiage we can find 
some of the same concepts that underlie all 
procedural languages. Programs consist of four 
divisions: 
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Identification division. This is mainly 
documentary, and provides a place for a program 
name, programmer’s name, dates written and 
compiled and introductory remarks. 
Environment division. This is intended to be the 
machine-dependent part, containing details of the 
computer on which the program was written 
and run. Many of the details included here are 
now catered for by modern operating systems so 
that nowadays the major use of this division is to 
specify external files used within the program. 
Data division. This contains details of all data 
areas used by the program. In a sense, it is like the 
declaration part of a PASCAL program where 
variable names are introduced, although the 
concept of a ‘variable’ in the normal sense is a 
slightly dangerous one to use with copo. data. 
There are two main sections in the data division: 
the file section, which essentially contains the 
record layouts for external files, and the working- 
storage section, for data used only within a 
program. 

Procedure division. The actual operations and 
procedures to be carried out on the data in the data 
division are specified here. The procedure division 
may be split into sections if required, and each 
section or the whole division is composed of 
named paragraphs composed of sentences. One 
sentence may correspond to one or more 
‘statements’ or “commands’ which may be further 
subdivided into clauses to modify or qualify the 
actual operation being performed. The structure 
of the procedure division is clearly meant to be as 
close as possible to ordinary English which, 
coupled with long identifiers of up to thirty 
characters, can lead to programs that are 
understandable not only to other programmers 
but to non-programmers as well. However, it is 
just as easy to write incomprehensible ‘spaghetti’ 
code in COBOL as in any other language. 


We'll concentrate here on the data division, 
since defining and naming the data areas is a very 
important part of a COBOL program. The COBOL 
view of data is to regard the entire data division as 
one long string of characters that can be divided 
and subdivided at will. It is best to think of the data 
division as being simply a block of memory. The 
various divisions made in this data block are all 
named and given a level number to indicate the 
basic structure of the data. 

Normal level numbers range from 01 to 49, with 
some additional ones. A section of the data 
division will be defined at level 01. This section can 
then be subdivided by giving higher level numbers 
to the subsections — 02 for example — though the 
numbers do not have to be consecutive. One of 
these subsections can be further subdivided by 
using an even higher level number, and so on. 

Data names can be up to 30 characters long, 
using only alphabetic and numeric characters and 
hyphens. Cosot has a very large vocabulary 
of reserved words that cannot be used for data 
names. However, few of the reserved words have 

















hyphens so this problem is not too difficult to 
overcome. | 

We need to distinguish between two types of 
data items: elementary and group. An elementary 
item is one that is not further subdivided; both 
elementary and group items can be referred to in 
the procedure division. Each elementary data item 
must have a USAGE and a PICTURE. There are two 
main USAGEs: COMPUTATION and DISPLAY. 

As you may expect, COMPUTATIONAL is used for 
numeric data items for calculations and will cause 
the number to be stored in a binary form rather 
than as a character string, thus making arithmetic 
calculations faster. A data item does not, however, 
have to be COMPUTATIONAL in order to be used for 
calculations. DISPLAY is the normal default usage, 
which simply means the data is stored as a string of 
characters. Each of these two USAGEs may have 
further refinements, depending on the system 
used; for example, COMPUTATIONAL-3 for a floating 
point number. The USAGE clause is optional; if 
omitted, then DISPLAY is assumed. 

The PICTURE clause defines the expected 
contents of each character position in an 
elementary item. The main symbols used are: 9 to 
indicate a numeric character; A for an alphabetic 
character; X for an alphanumeric character; and V 
to indicate the position of the decimal point in a 
numeric item. The decimal point is not normally 
stored, but coBoL keeps track of its position so 


that calculations can be properly performed. 
An S indicates that a numeric item is signed. If 


this is omitted, then the absolute value of any 
number stored is automatically taken. There are 
options as to whether the sign is stored as a 
separate character or not. (Note that PIC is short 
for PICTURE, and either can be used.) Finally, as 
well as a PICTURE and a USAGE, it is possible to 
assign an initial value to any data item, or to 
specify it as an array. 


PROGRAM LAYOUT 


Like FORTRAN, COBOL was originally designed for 
use with punched cards. Each line should not 
exceed 72 characters in length and, if necessary, a 
continuation line must be used. The layout is 
strictly specified, but many systems will allow a 
more free-form layout if the program is not 
estined for another machine. The first six 
columns are used for line numbers. Cosot does 
not require line numbers but they may be put in to 
help with debugging. Column 7 is used to mark a 
continuation line, or an asterisk in this position 
indicates a comment. Columns 8 to 11 are the A 
area. Division, section and paragraph names begin 
here as do 01 level data items. Other data items and 
statements in the procedure division begin in the B 
area — columns 12 to 72. Most data declarations 
constitute a sentence and so they must end with a 
full stop. If you need characters in a data item that 
are not actually referred to in the procedure 
division, then the reserved word FILLER is used. 
In the next part of this series, we'll look at the 
procedure division. 
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SPREADING OUT 





allow us to enter data and formulae into our 
spreadsheet, we turn our attention to 


additional features that make the 


spreadsheet a useful financial modelling 
tool. 








calculations, the formulae to be entered into each 
cell of a particular column or row are often similar. 
For example, we may wish to add each element in 
the first column to each element in the second 
column and put the results in the third column. To 
perform this simple task a formula would need to 
be entered into each cell in the third column. The 
first cell in this column, A3, would need to be 
programmed with the formula A1+A2; the next cell 
in the third column, B3, would need to be 
programmed with the formula B1+B2, and so on. 
Although the formulae are not identical they are 
similar, so to avoid the tedious task of having to 
enter the formulae manually into every cell in the 
third column, it would be useful to have a facility 
that automatically entered suitably amended 
formulae into a complete (or part) row or column. 
This is the purpose of the Replicate function. 
Clear, Store and Retrieve functions act on the 
complete sheet and, as the names imply, allow the 
user to clear the cell data from the complete sheet, 
store the data for the complete sheet in memory 
(rather than on disk or tape) and recall it later. 
Another useful function to assist in moving 
- around the sheet is the Tab function. Although it is 
possible to move to any part of the sheet using the 
cursor, this can be rather slow, particularly as the 
sheet has to be rewritten each time the screen 


window scrolls across the sheet. The Tab function ° 


allows the user to jump to any cell simply by 
entering the cell name. 


THE REPLICATE FUNCTION 

The subroutines that handle the Replicate function 
are located between lines 5400 and 5995. The first 
routine takes the formula to be replicated and 
splits it up into its constituent elements. This 
routine is in fact called by the main Replicate 
routine and works on a formula taken from the 
infix formula array FS() and stored in CS. The 
formula is broken down into its operators, cell 
names and constants and placed in the array ES(). 
The routine scans through CS a character at a time, 
and if the current character is not an operator it is 
added to a temporary string, TS.If the character is 
an operator then TS is placed in the next free 
element of ES() (as encountering an operator 
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means that a complete operand is stored in TS). 
The operator just encountered is also added to 
ES(). The process then continues until the entire 
formula has been scanned. 

The next section of code, between lines 5500 
and 5650, contains the input and verify routine. 
This allows the user to direct the replicate function 
to act on a particular group of cells and is written to 
accept commands in the format A1(B1-F1. This 
means: take the formula in cell A1 and replicate it 
in column 1| between B1 and F1. Alternatively, to 
replicate across a row, a command like this might 
be entered: A1(A2-A10. The first section of the input 
routine, between lines 5500 and 5520, checks that 
the input has the correct syntax. Next, the input is 
divided to extract the three cell names that need to 
be worked on. These are then placed in R1$, R2S 
and R3S. 

The next section, at line 5700, is the actual entry 
point to the Replicate routine, its function being to 
decide whether the command implies that a row or 
a column is to be replicated and jump to the 
appropriate replicate row or column routine. It is 
possible to decide if a row or column is to be 
replicated by examining the three cell names input 
as part of the replicate command. Each cell name 
is made up of a letter followed by anumber. If each 
of the three cell names starts with the same letter, 
as in A1(A2-A10, then it is clear that the formula 
replication should take place across a row, in this 
case row A. If, however, the number part in each 
cell name is the same, for example A3(B3-H3, then a 
column 1s to be replicated. One spin-off of 
checking for row or column is that illegal entries 
such as A1(B1-F2 are automatically picked up. 

At lines 5800 to 5895 we find the code that 
replicates a formula down a column. First, the 
routine we discussed earlier that splits up the 
formula to replicate is called. A FOR. . .NEXT loop 
at line 5820 uses the ASCII values of the first 
characters of R2S and R3S (the cell names between 
which the formula is to be replicated) as its control 
variables. The task of constructing the new 
formula for each cell is then started at line 5830. 

At this stage, it is worth discussing the 
limitations of the Replicate function. When you 
replicate a formula down a column, the function 
will only work successfully if each cell name within 
the formula to be replicated has the same row 
letter. This means that a formula such as A1+A2*A3 
will replicate successfully but A1+A2*B2 will not. 
This is not a serious restriction, however, as most 
applications that make use of the Replicate function 
use formulae that work on elements within a single 
row. 


THE CLEAR, STORE, RETRIEVE AND 
TAB FUNCTIONS 

The code for all these short routines is given 
between lines 5000 and 5395. Clearing the sheet is 
a simple matter. The array M(,), used to hold the 
cell data for the complete sheet is simply set to zero 
using a couple of nested FOR. . .NEXT loops, and the 
sheet is reprinted to the screen by the subroutine 























call to line 1700. 

To store and retrieve a sheet of data, a second 
array, N(,), is used. The store and retrieve routines 
simply transfer the contents of M(,) to N(,), or vice 
versa. 

The Tab routine starts at line 5200 and accepts a 
cell name as input. Before rewriting the sheet, the 
horizontal and vertical limits of the screen window 
need to be recalculated. In addition to reprinting 
the sheet data, new column and row label have to 
be printed to take account of the fact that the 
window on to the sheet may have to be changed as 
a consequence of moving to the new cell. 

In the next, and final , instalment of this 
project, we shall look at methods of saving and 
loading spreadsheet data and formulae to disk or 
tape. : 











































Replicating 
Loops 


The flowchart here shows how 

the REPLICATE function for our 
spreadsheet works. First, the 
routine gets and checks a 
REPLICATE command and fetches 
the formula that is to be 

replicated from FS(). The rest of the 
routine works through the 

formula making the appropriate 
formula changes for each cell in 
the row or column that is 

being replicated. The resulting 
formulae are put back into FS() 

for use by the ‘calculate and 
display formula’ routines. 
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:> PROGRAMMING PROJECTS /SPREADSHEETS 








Jo00 REM ##* REPLICATING FORMULA #22 S@10 GOSUB S400:REM MAKE LIST GF ELEMENTS 


S501 GOSUB 1750 S620 FOR K=ASC(R2$) TO ASCO RS$):T$="" 
S502 PRINT "REPLICATE: S930 FOR Ki=1 TO LP 
"+ CUS | 5840 LET TES=MIDS(ES(K1),1,1) 
S503 INPUT "“REPLICATE:"sRe S845 IF (TES>="0" AND TES<="9") OR TES=" 
S505 LET P=O:R1¢=""1R2¢=""spage"" Tee" ." THEN TS=TEt+ES¢Ki>:GOTO ssen 
SS10 IF MIDS(RE,3,13¢3"6" AND MIDECcRE,4, S850 IF TE$=R1% THEN TS=TS+CHRS(KI+MIDS¢ 
1)<>"C" THEN Ssono E$¢(K1),2):GOTO sSesa 
SoiS IF MIDS°R#,6,15¢)"-—" ABO MibecrRse,7, 5860 IF TES="+" OR TE¢="-" OR TES="=" TH 
1)<>"-" AND MIOS(RS,8,1)<3"-—" THEN S500 EN TS=TE+TES:GOTO 58eo 
S517 IF R¢="" THEN 5500 5865 IF TEt="/" OR TE$=""*" OR TES="«" OR 
S520 LET P=P+i TE¢=")" THEN TS=TS+TES:GOTO Seed 
S530 LET TS=MIDS(R#,P,1) 5870 IF TE#<>""THEN TS=TS+TES 
S040 IF T#="(" THEN P=P+1:G0TO 5570 S@80 NEXT Kt 
SSaSO LET RiSG=Ri1$+T? 38970 FSC (K-65) ¥#15+R1 =TS:PS$( (K-65) #1 5+R ; 
5560 GOTO 5520 1>="" 
Sav0 LET Té=MID#(R#,F,1) S895 NEXT K:GOSUB 1900:RETURN 
S580 IF Té="-—" THEN P=P+1:GOTO S410 S900 REM **#** REPLICATE ROW ***% 
S590 LET R2S=Ree+Ts 5905 LET C#=F$¢ (ASC(RI$)-45)¥15+R1) 
5400 LET P=P+1:GOTO 5570 5910 GOSUB 5400:REM MAKE LIST OF ELEMENTS 
S610 LET T=MIDS<(R$,F,1) S920 FOR K=R2 TO R3:T$="" 
53620 LET R3$=R3$+TS 5930 FOR Ki=i TO LP 
S430 LET P=P+1 S740 LET TES=MIDScES¢Kid,1,1) 
5640 IF P<=LENCR®) THEN 5610 3745 IF (TES>="0" AND TES$¢="9") OR TE¢$=" 
S450 RETLIPN ." THEN TE=TS+ES(K1):G0TO 5980 
S700 REM ** DECIDE COLUMN OR ROW #** S950 IF TE$>="A" AND TES<="0" THEN Ts=TS 
S730 GOSUB SSOO:REM TEST FOR VALID INPUT +TES+MIDS(STRE(K) ,2):G0TO Sean 
57465 RI=VAL(MIDS(R1$,2)) :RIS=MIDSCRIS, 1,1) 5960 IF TES="+" OR TES="-" OR TES="*" TH 
S770 R2=VALCMIDS(R2$,2)) :RZS=MIDECRZE,1.19 EM TS=TS+TES:GOTO Sena 
S775 RS=VAL(MIDS( RSS. 2)) :RES=MIDS (RE .1.19 5765 IF TES="/" OR TE$=""" OR TEg="¢" OF 
5780 IF Ri=R2 AND R1=R2 THEN Seco TES="9" THEN TS=TS+TES:GOTO Sec 
s790 IF MIDS(R1$,1,1.2=MID#(R2¢,1,1) AND S70 IF TE$<>""THEN TS=TSt+TES 
MIDS¢R1#,1,12=MIDS¢RSé,1,1) THEN 5300 See NEXT Ki 
5795 GOTO S700 S??0 FRC CASC(R1$)-65)#15+KI=TS:PSEecrasce 
S800 REM *¥*#* REPLICATE COLUMN #ex% Rig?-S5)*15+K="" 
S805 LET C#=FS¢ (ASC(R1$)-65) ¥15+R1) S995 NEXT K:GOSUB 1900:RETURN 
Spectrum: 
SOUU3REM ¥*** CLEAR ARRGY #*=% S405 LET P=: LET LP=i: LET T#=" S775 LET RS=VAL (2#(2 Ta )): LET 
S010 CIM M(15,15): GO SUB iv7oo: Us LET Use" 2$=2$(1) 
RETURN S410 DIM E#<20,5> S780 IF Ri=R2 AND R1=R3 THEN GQ 
Sigg REM *#* GET PREWIGUS SHEET #*=* 5420 LET P=P+1: IF P>LEN ‘C#) TH To 5800 
Siig FOR I=i TO 15: FOR J=1 To 15 EN LET E#¢(LP2=TS: RETURN S790 IF X$=Y"¢ AND X$=2$ THEN Gd 
Si20 LET Mil, J=Ncl o> 5430 LET Ut=CS¢P) To 5900 
SiS0 WEXT J: WEXT I 5440 IF Us="+" OR Ugs="-" OR Us=" S775 GO TO 5700 
Sido GO SUB 1700: RETUR *" OR Ut="/" THEN GO TO 5460 5800 REM **#* REPLICATE COLUMN =#*#* 
Si50 REM STORE CURRENT SHEET IM 5445 IF Ut="*" OR Use"c" OR Use" S805 LET C#=F$¢ (CODE (*#)-65)*15+R1) 
MEMORY 2° THEN 6&0 [0D S460 S8id GO SUB S400: REM MAKE LIST 
SiéG FOR I=1 TO 15: FOR J=1 To 15 s450 LET T#=T#+US: GO TO S420 OF ELEMENTS 
S170 LET MCl,J2=MC1,J): HExT J; od60 LE] EStLPo=|e: LET LPeLP+i S820 FOR K=CODE (Y#) TO CODE ‘2 
NEXT 1 5470 LET E#¢(LP)=U%: LET LP=LP+1 >: LET Tee"" 
~Sis0 Ga SUB 1700: RETURN 5480 LET T#="": GO TO 5420 S630 FOR J=1 TO LP 
S200 REM #*#*##£ GOTO CELL FOLITINE +e«% 5500 REM ***® REPLICATING **% D840 LET US=eES¢ J0¢ TO 13 
S210 PRINT AT 18,0;" ENTER S505 LET P=0: LET X#="": LET Y4= S50 IF Ut=xX$ THEN LET T#=T#+CH 
NEW CELL Ms LET Z2¢="": LET [$="' R$ (K)+ES(J,2 TO 0: GO TO 5880 
S220 INPUT LINE N# S510 IF R$(3)<>"¢" AND REC 40 <>"¢ S960 IF Ut="+" OR Ut="-" OR Us=" 
5225 IF LEN (N$)<¢3 THEN LET. N&= " THEN GO 10 3660 *" THEN LET TS=T#+Us: GO TO 588 
Neetu : S515 IF R#66)<3"-" AND RBC 7I<3N- Seé5 1F Ut="/" OR Use" " OR Use" © 
S230 LET N@=N#¢1 TO 33: LET O$=N " AND RB(8)<>"-" THEN GO TO 5640 (" OR US=")" THEN LET TS=TS+Us: 
#¢2 TO 3) : S520 LET F=F+1 GO Ta 5sgo 
5240 LET N$=NS<1> S520 LET T#=R¢¢P3 5870 IF US<>"" THEN LET T#=TS+US 
5250 IF N€<"A" OR NS>"O" THEN G SS4q IF T#="¢" THEN LET P=Pti: - S680 NEXT J 
Q TO S210 - GO 10 5570 S9e2 LET Ut="": FOR i=1 TO LEN ¢ 
S260 IF VAL (O0$)<1 OR VAL (O)*1 S550 LET X$=xE+TS TS): IF TECi TO i540" ° THEN LE 
S THEN GO TO 5210 S540 GO TO SS2O T US=US+TH$Ci TA id \ 
5280 GO SUB 14600: REM TURN CURSO SSr7o LET T#=R#¢P2 5885 NEXT ij 
R OFF SSe8q IF Tt="-" THEN LET P=Pti: Sood LET Fe(¢K-$5)*15+R1)=U$: LE 
9300 LET Y=CODE (N#)-64 GO TO Séid T HB¢¢K-65)815+R1.="" 
5305 LET X=VAL (08) SSe0 LET vt=ve+T# Sa¢5 NEXT K: GO SUB 1900: RETURN 
3310 LET VL=V2: LET HL=H2 Begg LET PePti: GO To Soro S700 REM ##*##* REPLICATE ROW xxx 
5315 IF X<¢H1 THEN GO TO 5230 S410 LET T#=R#¢P2 S05 LET C#=FE( (CODE (*$)9-465) 415 
5316 IF X<H2 THEN GO TO 5335 S420 LET 2$=2#+T# +R1) 
S320 IF X>=12 THEN LET H1i=12: L S430 LET FHF+l Soid GO SUB S400: REM MAKE LIST 
ET H2=15: GO TO 5340 Bé4d0 IF Pe=sLEN (Re) THEN GO TO S410 OF ELEMENTS 
5330 LET Hl=x: LET H2=H1+3 S650 RETURN Se20 FOR K=R2 TO RS: LET Tee"" 
5335 IF ¥<V1 THEN GQ TO 5350 S470 PRINT &AT 18,0:"ERROR IN REF 5¢30 FOR J=1 TO LP 
5336 IF ¥<V2 THEN GO TO 5360 LICATE STRING! Se4C LET US=E$(3.1 To 1) 
S40 IF Y>=9 THEN LET V1i=9: LET S4ed RETURN 5°50 IF US>="4" AND US<="0" THEN 
V2=Vit1eé: GO TO 5360 S00 REM ##*2 DECIDE COLUMN OF R LET T=TS+US+STRE (KX: GO TO 5¢ee0 
S350 LET Vi=e¥: LET V2=7+4 Ol #e## S640 IF Ut="“" OR US=""*" OR Use" 
5340 GO SUB 1800: REM PRINT COLUMNS S10 PRINT AT 18,0;"REPLICATE: (" OR Us=")" THEN LET T#=T#+Us: 
5370 GO SUB 1850: REM PRINT ROWS / ee ee 
5380 IF V2=VL AND H2=HL THEN G0 S720 INPUT LINE Rt S¢70 IF US<>"" THEN LET Té=TS+US 
SUB 1450: GO TO 1100 S/ac GO SUB S500 S9S0 NEXT J 
S390 GO SUB 1700 S765 LET Ri=URAL (x$02 TC 93: LET S990 LET FEC (CODE (*$)-S5) *15+hK) 
Sa°5 GO To 1100 MEeXEC 1) =T$: LET H#¢( CODE ¢x$)-65) #15+K) 
S400 REM *#**#*% MAKE LIST OF ELEME S70 LET R@=UiBL cyéc2 TO 0): LET =u 
NTS IN IS #%# YE=YSC1) S¢95 NEXT K: GO SUB 1900: RETURN 
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STANDARDISATION 

While most consumers would prefer a level of 
standardisation among manufacturers, it has 
hardly been attained in practice. Ideally, all 
manufacturers would agree on specifications for 
products to remove the problem _ of 
incompatibility. In this way, not only would 
communication with a _ given device be 
standardised, but development costs would be 
reduced. 7 

Unfortunately, manufacturers atten have their 
own interpretation of a standard, which creates a 
market filled with incompatible products. An 
obvious example is the RS232C standard (see 
page 1528), which many companies have defined 
in different ways. This is particularly noticeable 
with regard to the wiring of the port, though a little 
soldering can usually overcome the problem. But 
some manufacturers have changed the voltage of 
the port so that it won’t communicate directly with 
other RS232C devices at all, requiring the user to 
buy a new adaptor. 

Two different approaches to standardisation 
can be seen in the MSX range of micros (see page 
141) and in the CP/M operating system (see our 
series beginning on page 1264). The former 
depends on using the same hardware 
specifications, while the latter, on disk, provides 
compatibility for widely different machines. 


STAR NETWORK 


A star networkis one of the several ways to arrange 
a local area network (LAN; see page 969). In this 
system, the computers constituting the nodes of 
the network are configured into a ‘star’, with a 
number of computers connected to a central 
machine that acts as a switching device for 
messages between the nodes. While this system 
does not require the computers on the edge of the 
network to have a switching mechanism of their 
own, it means that the computer in the central 
node is dedicated almost entirely to controlling 
communications. Furthermore, should a fault 
develop within the central computer, the entire 
network will break down. 7 


STEPPER MOTORS 


The stepper motor is one of the types of electric 
motor widely used in small-scale robotics projects. 
Its major attribute is that it can be turned through 
an exact angle in response to a digital pulse. 
Stepper motors work by having a large number of 
small electromagnetic coils surrounding the 
rotating shaft of the motor. These coils are affixed 
alternately to two different terminals so that when 
charge is sent through one coil, an opposite 
charge is induced in the opposite terminal, 
deflecting the rotor to align with the north and 
south poles of the coils. By energising coil pairs in 
order, the motor can be made to rotate. The 
switching logic needed for this is often held on a 
‘driver’ chip that accepts pulse and direction 
signals from the controlling device and outputs the 
appropriate signals to the stepper motor coils. 


STORAGE DEVICE 

Any device that can store information that can 
subsequently be retrieved for use by a computer’s 
central processing unit is a storage device. These 
can range from registers and dynamic RAM chips 
to floppy disk drives and cassette decks, and the 
uses of each depend on the medium on which they 
are held. For example, although the access times of 
registers and RAM chips are exceedingly fast — 
making them good storage devices for direct 
access by the processor — they require a 
permanent charge to hold the information within 
the cell, otherwise the device will reset to its default 
state and the information will be lost. On the other 
hand, disk and tape drives use magnetic media to 
store information. But although it takes much 
longer to access the information compared with 
the microelectronic devices, data is_ held 
permanently even after the host computer has 
been switched off. For this reason, such storage 
devices are known as ‘backing store’. 


STREAM 


Peripheral devices and other I/O systems within a 
computer often require particular transmission 
rates and other protocols. To ensure that the 
information is delivered to a given device in the 
correct format, it’s necessary for the computer’s 
operating system to be organised as a series of 
streams. By assigning information to a particular 
stream, we tell the computer what format the data 


should have and where it should be sent. 
Although the idea of streams was originally 


developed to enable computers to handle 
more than one peripheral interface at once, 
manufacturers have taken advantage of this 
simple system of defining output channels to allow 
a large number of channels to be accessed. 








Precise Steps 

Stepper motors are ideally 
suited for a wide range of 
robotics projects, due to the fact 
that the motor is rotated a 
precise angle in response to a 
digital signal from a computer. 
This means that a computer can 
accurately position a stepper 
motor to a very fine degree. 
Stepper motors are most often 
used in the construction of 
robots and other computer- 
controlled precision 
instruments such as telescopes 


KEVIN JONES. 
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JEWEL OF 
A SYSTEM 





We ain a hott series on WIMP racine 
with a look at ‘object-oriented’ languages. 
From their origins in SMALLTALK in the 1970s, 
we examine the ways in which these 
operating environments are radically 
changing the n new generation of computers. 





The average newcomers introduction to personal 
computers is usually obtained by way of one of 
two types of program that runs or is ‘booted up’ 
when the machine is first switched on. With the 
first type, machines are provided with a resident 
version of BASIC — which often gives the 
impression to naive users that computers are little 
more than ‘BAsIC machines’ into which commands 
are entered in direct mode (in other words without 
program line numbers). 

A resident BAsic interpreter, as just described, 
can provide a more friendly environment than the 
second type — the ‘system program’ — which is 
not a packaged language environment but is 
known as the monitor, or operating system (OS). 
Typical examples of standard operating systems 
are CP/M, MS-DOS, UNIX, and so on. These 
sytems tend to be rather unfriendly and date back 
to the days when computer users were expected to 
be experts in the intricacies of their machine. 
As most readers will be aware, machines like 
the Apple Macintosh have radically altered our 
expectations of what we get from a computer and 
especially how we interact with the computer 
itself. Such systems tend to rely on the use of 
windows, icons, and mice, and for this reason they 
have come to be known as WIMP systems. The 
emergence of WIMP technology is only one 
aspect of a relatively little-known field of research 
— usually referred to as ‘object-oriented 
programming’ — and the work being done in this 
area has enormous implications for the future. It is 
_ this research, and the changes it has given rise to, 
that we shall be examining in this series. 

The most ‘objective’ language so far developed 
is undoubtedly sMALLTALK, the product of a team 
of researchers at Xerox’s Palo Alto Research 
Centre (PARC). We shall therefore begin our 
series by taking a look at the background of 
SMALLTALK and an associated project — Alan Kay’s 
Dynabook. 

It may seem strange that a company making 
most of its profits from paper should evince an 
interest in the concept of a paperless business 
environment — the ‘electronic office’. This was 
indeed the case, however, with the Xerox 
Corporation of America in the early 1970s. Their 
foresight in anticipating future trends has meant 
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AN McKINNEL ON THE MACINTOSH 


that Xerox, perhaps more than any other 
company, was responsible for the origins of what 
we now know as WIMP systems. 

Xerox realised that with strong competition 
from IBM, DEC, and others, their late entry into 
the field of computing would be a serious 
handicap unless they could capture a share of the 
market from established computer 
manufacturers. They took the bold step of setting 
up PARC, giving its staff of researchers and 
technicians a broad brief and a large budget to 
research into office automation, artificial 
intelligence (AI), the man-made interface (MMI) 
and computer systems in general. 

The starting point for sMALLTALK itself was the 
futuristic Dynabook, or reference system for 
everyone. This was the brainchild of Alan Kay, 
then a research student, who envisaged a time 
when everyone would have a small self-powered 
computer (about the size of a novel) that would 
allow each user dynamic access to a complete 
reference encyclopaedia of knowledge. 


DYNABOOK 


The high-performance, hand-held Dynabook 
would have a high-resolution display, input and 
output devices supporting both visual and audio 
communications, and radio satellite network 
connections to a shared database. Unfortunately, 
the technical problems of miniaturisation and the 
massive processing and memory resources 
required to implement Kay’s vision, resulted in the 
Dynabook research team being disbanded. 
Nevertheless, many of the Dynabook ideas have 
had a strong and lasting influence on research and 
development that has now found its way into 
currently available machines. 

One of the key concepts that evolved during the 
early development stages was that of the personal 
‘workstation’. Until then, computing had meant 
sharing the resources of a large mainframe 
installation or, more recently, a number of mini- 
computers. Processing data was very indirect, with 
‘batch’ processing being the norm on large 
systems. 

The most obvious difference between this 
environment and PARC philosophy was the turn- 
round time. Conventional systems entailed 
waiting, sometimes for hours, for results. In 1972 
the immediacy that was implicit in the Dynabook 
concept was quite revolutionary. Furthermore, 
such concepts as the use of a mouse-like pointing 
device, icons and windows, meant a radical 
rethinking about the way data was communicated, 
both to and from the central processor and the 
display. This led variously to powerful dedicated 
graphics kernels implemented in the firmware, 
and also to the strange language that PARC 
workers named SMALLTALK. 

The core of SMALLTALK research was concerned 
with modelling a complete hardware and software 
system based on communication between 
‘objects’ with certain defined properties. 

We are all familiar with several distinct objects 








that form a part of any computer system: the 
keyboard, VDU and printer are obvious 
examples. Each of these hardware devices has 
fixed properties, and only understands how to do 
certain jobs. There is no use in asking the keyboard 
to print a document, for instance. Each object, in 
its own way, holds a certain amount of data 
(information about itself) and the knowledge 
required to perform a limited number of tasks 
correctly. The VDU screen appears to ‘know’ how 
to display data sent to it, and take care of its own 
housekeeping chores, such as sending the cursor 
back to the left hand side of the screen if text 
attempts to march off the end of the line. 

In reality, this object is a complex interacting © 
network of hardware and software — part 
electronics, part operating system or other 
software. By considering every component of a 
computer system as an object, and defining its 
properties and the algorithms needed for it to 
behave correctly, a software engineer can create a 
system based on a network of communicating 
objects. Instead of the traditional structured 
language technique of calling a procedure by 
name to process data (passed as its parameters), 
program ‘objects’ are described according to 
certain classes or categories, and contain the 
methods for processing specific data types. ‘These 
are supplied as arguments in a ‘message’. All the 
message does is to pass on the data and tell the 
receiving object which method to apply — it is of © 
no concern to the sender of the message exactly 
how the method is performed.. 

SMALLTALK is the fullest implementation of the 
object-oriented approach, but requires large 
resources of memory and processing power. More 
recently, there has been considerable interest in 
MODULA-2, especially in the USA. This European 
language is a PASCAL derivative and was designed 
by the inventor of pAscAL, Professor Niklaus 
Wirth, for programming large systems where a 
team of programmers must be able to implement 
different ‘modules’ independently (hence its 
name). Data, data types and procedures may be 
kept separate in any module unless explicitly 
‘imported’ or ‘exported’ for use by other 
modules. This is entirely analogous to the 
SMALLTALK idea, except that the concept of 
message-passing and data argument is replaced by 
the more conventional pAscai-like procedure calls 
and parameter lists. This provides a simple and 
secure way to build large systems without the 
dangerous side-effects that unrestricted access to 
all objects in the system can produce. 

Despite the recent appearance of machines 
such as the Apple Macintosh, consumers are 
already taking the immediacy and friendliness of 
WIMP operating systems for granted. SMALLTALK 
was responsible for the birth of such systems, and 
its implementation had important implications for 
hardware development. In the next instalment, we 
look at the demands made by WIMP systems on 
hardware, and the manner in which these were 
overcome. 
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An Age Of Dilettantism 

In the sixteenth and seventeenth 
centuries, leisure and learning 
tended to be mixed in a way that 
might be considered flippant in 
our own age of specialisation. 
It's hardly surprising then to 
find that gambling and 
mathematics became so 
frequently entwined. The 
Reverend Bayes, shown here, 
developed an equation for the 
calculation of odds, and other 
near contemporaries (including 
D‘Alembert, Pascal and Fermat) 
were equally attracted by the 
potentially profitable puzzles of 
probability 


FORMULA 


FOR SUCCESS 


2S SESS SSS 


We continue our discussion of probability 
theory with an examination of Bayes’ Rule. 
By utilising these equations to compute the 
‘likelihood ratios’, it is possible to forecast 
football results. 





Having looked at odds to probability conversion 
in the previous instalment (see page 1649), we 
turn now to the application of probability figures, 
which is where a micro can help the punter. 

You can use your computer to work out the 
probabilities represented by quoted odds, and the 
bookies can use this to make a nicely over-round 
book. But most micros are used for trying to pick 
winners, and the only rational way to go about this 
is to weigh up the form. The trouble is there’s too 
much information, which gives rise to two 
problems: 


® Sorting out what evidence is important. 
® Combining disparate pieces of evidence. 


This is where a theorem from statistics, comes in 
handy — Bayes’ Rule. The Reverend Bayes was an 
eighteenth-century cleric who came up with the 
following equations: 

P(HIE)=P(ER) x P(H)/P(E) 
which can be expressed in terms of odds as: 

O(HE)=O(H) X LR(HE) 

These may look complicated, butare actually quite 
straightforward. In the first equation, P(HIE) is the 
conditional probability, P, of a hypothesis, H, 
given (|), some evidence, E. 

O(HIEE) in the second equation is the same as 
P(HE), but expressed as odds (in favour). The 
second equation can be read as: the odds on a 
hypothesis (H) given a piece of evidence (E) 
equals the prior odds (before knowing E) on that 
hypothesis, multiplied by the likelihood ratio 
for that piece of evidence. We'll discuss likelihood 
ratios in a moment, but first let’s simplify matters 
by examining a step-by-step example. 


FOOTBALL FORECAST 


Starting with some sample data, supposing you 
have records of past football games and you want 
to predict home wins. Two points are noted: first, 
when the forecast in Racing & Football Outlook 
newspaper predicts an away win, the game is very 
seldom a home win (although it may be a draw). 
Secondly, if the position of the home team (before 
the match) is in the top nine in its league, the game 
is usually a home win. With a sample of 131 
matches, these observations can be summarised as 
two frequency tables: 
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We can now use these frequency tables to compute 
the ‘likelihood ratios’ we mentioned earlier. The 
likelihood ratio is usually defined as: | 


LR(HE)=P(EH)/P(Enot-H) 


For two-by-two contingency tables like those 
above we can compute the likelihood ratios from a 
tabie laid out like this: 





number of results that back up 


P(EH) = 
evidence/total results in favour of hypothesis; 
that is, P(BIH=a/(atc). Similarly, P(EH=b/ 
(b+d). Our likelihood ratio LR(HE=a/(atc)/b/ 
(b+d), with a little juggling comes out as: 


LR(HE)=(aX (b+d)/bX (a+c)) 


For our two tables, the results come out as follows: 


seuat 
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1. 




















For those who prefer words to numbers, the latter 
pair of numbers is saying that if you know that the 
home team is in the top nine positions of its league, 
the odds in favour of it winning are 1.3384 times 
what they would be if you didn’t know that fact. 
But if it is 10th or lower in the league, the odds are 
only 0.8032 of what they would have been in 
favour of ahome win. 

To show these ratios in use, let’s assume the first 
piece of evidence is false (Forecast < > Away) 
and the second is true (Homepos. < 10). We start 
with the prior odds in favour of a home which, 
since there are 63 homes and 68 non-homes 
(draws or aways), is 63/68 = 0.9265. This 
corresponds to a probability of 0.4809. 

Next, we multiply by the appropriate likelihood 
ratios. The first item of evidence was false, so we 


use 1.4392, and the second was true, so we use 
1.3384. Thus: 


Posterior Odds 


0.9265 X 1.4392 1.3384 
1.7846 


We can convert back to probability with our 
formula P=F/(1+F), so: 


1.7846/2.7846 
0.6409 


This says that there is roughly a 64 per cent chance 
of ahome win, given that the newspaper forecast is 
not for an away and the home team is ninth or 
better in the league. Both pieces of evidence were 
favourable, and have.raised the prior probability 
from about 48 per cent to about 64 per cent. Ifa 


Posterior Prob. 


bookie offers 6 to 4 on, or better, the bet is worth 


taking (but because of the betting tax, you can’t 
really afford to accept less than evens here). 

The advantage of Bayes’ Rule is that it provides 
a rational basis for weighing and combining 
different items of evidence. It’s also easy to 
compute: once you have the likelihood ratios it’s 
only a matter of multiplication. Furthermore, 
since the output is in odds, which can readily be 
converted to probabilities, the rule makes it simple 
to see whether a bet is good value for money 
(unlike other systems that come up with ‘magic 
numbers’ or strength weightings). 

The catch is that the method shown here's likely 
to produce exaggerated estimates if the pieces of 
evidence are correlated. If the newspaper pundit, 
for example, takes into account league position in 
making his forecast (as is most likely) then the two 
pieces of evidence are not truly independent. By 
multiplying them, we are treating them as if they 
were. 

Nevertheless, Bayes’ Rule has much to 
recommend it as a thread for tying together 
various indicators in a forecasting program. If you 
write a Bayesian forecasting program, the best way 
to minimise the problem of correlated evidence is 
to test new data one at a time, and add a new one 
only if it improves the overall performance of the 
system. If a plausible variable, when included, 
makes the system perform less well, you are 
probably, in effect, measuring the same thing 
twice. 





Testing your methods on a sample of past data 
gets to the heart of the scientific approach to 
gambling. Unfortunately, this implies some 
preliminary spadework, which most people tend 
a ape on, preferring instead to rely on blind 

aith. 

A little common sense, allied to certain basic 
statistical principles, can help you swing the odds 
in your favour. The computer can help in this 
process; but one thing it cannot give you is self- 
restraint. This is vital if you are to stick to your 


plans, to approach the matter scientifically and not 
to bet until you are good and ready. 


HORSE RAC 
WITH TH 
COMMODOR 


a 
a 
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We present here the entire listing of our 
interactive characters program, which will 
run without modification on the Amstrad 
range of computers. Flavours for the BBC 
Micro, Sinclair Spectrum and Commodore 





This full listing incorporates the remainin 
decision trees covering object awareness, general 
activity and character interaction. The listing is 
printed in two colours — lines printed in black 
have already been published, lines printed in green 
are new additions. 

There are one or two examples of previously 
published lines being altered to make room for our 
new trees — these lines are printed in red. 

When RUNning the program, you can enter the 
character editor at any time by pressing the zero 
key. Otherwise, pressing one, two or three will 
move the player into the lounge, saloon and 
kitchen, respectively. 7 


Dog And Bucket Listing 





10 REM #welcome to the Dog and Buckets 
20 REM 
30 REM 
40 REM 
45 GOSUB 4030: REM clear the screen 

30 DIM 1$(3,5) ,b$(12,4) ,c$¢7,11) ,dS<11) 
60 r=1 

70 PRINT "Default values (y/n)?*: GOSUB 


ereerrre: | iri Peer re rere 


1674 THE HOME COMPUTER ADVANCED COURSE 


KEVIN JONES 








4110: IF ig="y" OR if="Y" GOTO 90 

80 GOSUB 2350: GOTO 100 
90 FOR n=i TO 7: READ c$(n,1): FOR d2 
TO 11: READ c$(n,d): NEXT d: NEAT n 

100 FOR n=1 TO 3: READ 1${n,1): FOR e=2 
TO 5: READ 1${n,e): NEXT e: NEXT n 

110 FOR n=1 TO 12: READ b${n,i): FOR d=2 
TO 4: READ b$(n,d): NEXT d: NEXT n 

120 FOR n=2 TO 11: READ d$<{n): NEXT n 
130 DEF FNb(y,z)=VAL(b$ty,z)) 
140 DEF FNc{y,2)=VAL(c$(y,z)) 
130 DEF FNa$éc$ ,d)=STR$<(VAL(c$) )-d) 
160 DEF FNis$=b$(VAL(c$<c ,3)) ,1) 
180 REM setup trees 
190 DIM t(5,40,4) ,k(3,30) ,c€35) ,5¢d) hdd 
): 250 | 
200 REM object tree 
210 FOR n=i TO 21: REM 21 choice nodes 
220 READ K(i,n),t(1,n,2),t€1,n,1): NEXT 
n 
230 REM plot tree 
240 FOR n=i TO 22: FOR s=1 TO 4: READ té 
2,n,8): NEXT s: READ a$: NEXT n 
200 REM character interaction tree 
260 FOR n=i TO 22: FOR s=i TO 4: READ t¢ 
3,n,5): NEXT 5: READ a%: NEXT n 
270 REM general activity tree 
280 FOR n=1 TO 39: FOR s=1 TO 4: READ té 
4,n,s): NEXT s: READ a$: NEXT n 
290 REM object awareness tree 
300 FOR n=1 TO 13: FOR s=i TO 4: READ t¢ 
3,0,5): NEXT s: READ a$: NEXT n 
300 REM 
310 REM test program loop 
320 REM : 
330 GOSUB 2100: GOSUB 2150: GOSUB 2240: 
PRINT: PRINT: GOSUB 1000: GOTO 530 

1000 REM 
1010 REM character handler 
1020 REM 
1030 REM check to see if Key pressed 
1040 GOSUB 4260: IF i$<>"" THEN GOSUB 20 
40: RETURN 
1030 REM process each character in t 


urn 

1060 FOR c=1 TO 6: IF c$¢c,9)="7" THEN c 
$(c,9)="0" 

1070 IF 2=c THEN GOTO 1500 

1080 IF FNc(c,10)>0 THEN c$(c,10)=FNa$(c 





$(c,10),1): GOTO 1500 

1090 REM flag=0 so reset flag and pr 
ocess character 

1100 RESTORE: FOR n=i TO c#10+c-1: READ 
c$(c,10): NEXT n 

1110 IF FNce(c,10)=0 THEN GOTO 1500: REM 
default value=0 so don’t process 

1120 REM check move flag 

1130 IF FNc(c,11)>0 THEN c$(c,11)=FNaS(c 
$(c,11),1): GOTO 1190 


a 





fe - 








1140 REM move flag=0 so reset flag a 
nd move character 

1150 RESTORE: FOR n=1 TO c#i1: READ c$<c 
si1): NEXT n 

1160 IF c#(c,i1)="0" THEN GOTO 1180 

1170 GOSUB 2840: GOTO 1500 

1180 REM sort through the trees 

1190 GOSUB 2400: REM initialise conditio 
ns 

1200 FOR t=2 T0 5: GOSUB 2430: GOSUB 546 
0: NEXT t 

1210 IF FNc(c,4)0 THEN GOSUB 3000; REM 

object manipulation tree 

1500 NEXT c: GOTO 1030: REM do next char 
acter - when all finished check for Key 

press/do again 





2000 REM 

2010 REM input routine 

2020 REM 

2030 GOSUB 4110 

2040 IF (ASC(i$)<48) OR (ASCC1$))51) THE 
N RETURN 

2050 IF i#="0" THEN GOSUB 2320: RETURN 
2060 r=VALC i$): c$(7,2)=i$: RETURN 

2070 REM 

2080 REM location print 

2090 REM 

2100 PRINT 1$¢r,1) 

2110 RETURN 

2120 REM 

2130 REM print visible objects 

2140 REM 

2150 PRINT "You can see: *; 

2160 p=0: FOR b=1 10 12: IF VAL(b$(b,2)) 
(dr GOTO 2190 

2170 p=pti: IF p>i THEN PRINT *, *; 

2180 PRINT b$(b,1); 

2190 NEXT b 

2200 IF p=0 THEN PRINT "nothing"; 

2210 PRINT: RETURN 

2220 REM 

2230 REM print visible characters 

2240 REM 

2250 p=0: FOR c=i TO 6: IF VAL(c$(c,2))< 
yr GOTO 2290 

2260 p=pti: IF p=i THEN PRINT “You are i 
n the company of: ";: GOTO 2280 

2270 PRINT ", "3 

2280 PRINT c$(c,1): 

2290 NEXT c 

2300 IF p=0 THEN PRINT “There’s no-one h 
ere.” 

2310 RETURN 

2320 REN 


9330 REM initialise chars subroutine 


2340 REM 

2350 PRINT: h=c: RESTORE: FOR c=1 10 7: 

READ c$(c,1): GOSUB 4070: PRINT c$<c,1); 
© - ":: PRINT "Set this char?": GOSUB 41 


10 ‘ 

2360 IF ¢i$<>"y") AND (i$<)"Y°) THEN FOR 
n=? TO 11: READ n$: NEXT n: GOTO 2390 
2370 FOR d=2 T0 11: READ s$: PRINT d$¢d) 

es INPUT i$: IF i$<)"" THEN c$(c,d)=i$ 

2380 NEXT d 

2390 NEXT c: c=h: RETURN 

2400 REM 

2410 REM conditions 

2420 REM 

2430 h=FNc(c,8): i=FNc(c,3): J=FNc(c,6): 
c(1)=ABS(i)0): c¢2)=ABS¢(CPNDC) ,2)=FNc(c 
»2)) AND (g=1)): c(3)=ABS(b$¢i ,3)="y"): 

c(4)=ABS(i=j): c(S)=ABS(b$¢ 1 ,4)="y") 
2440 c(6)=ABS¢( i=3): c(7)=ABSCFNc(c 3) 5) 
 c(B)=ABS(PNc(c,5))2): c(P)=ABS(VAL(c$¢ 
c,9))=1): cC1O)=ABSCFNc(x ,3)=0): cC11)=A 
BSCFNc(h ,2)=FNc(c,2)): c(12)=299 

2450 c(13)=ABS(z=c): c(14)=ABS(g=c): cCl 
5)=ABS(2=0): c¢(16)=ABS(5(c)=259): c(17)= 

ABSCFNc(z ,2)=FNc(c,2)): cC18)=ABSCh(c)=2 
Jo): c(19)=ABS¢ i=2) 

2460 c(20)=ABSCFNc(x ,4)<0): c(21 )=ABS( z= 
x): ¢€22)=ABS¢(FNc(x,3)=FNe(c,4)): c(29)= 
ABS(FNc(x ,5)215): c(24)=ABSCFNe (x ,92=7): 
c(25)=ABS(PNc(c,5)15): c(26)=ABSCPNe(c 
70) 17) 

2470 c(27)=FNe(c 9): c(2B)=ABSCFNE (Cc ,2)= 
rp): c(29)=ABSCFNe(c,2)=1): c(30)=ABSCFNC 
(¢,9) <5) 

2500 RETURN 

2010 REM 

2520 REM check location for objects 

2030 REN 

2540 #=0: REM set ‘found flag’ to zero 
2500 FOR b=1 TO 12 

2560 IF FNb(b,2)=FNc(c,2) THEN f=i: be12 
2070 NEXT b 

2580 IF f=1 THEN n=3: GOTO 2600 

2990 n=39 

2600 RETURN 

2610 REM 

2620 REM check for presence of owner of 
object: if present, set x to character n 
umber: jump back into tree 

2630 REM 

2640 f=0:x=0 

2650 FOR m=1 TO 64 

2660 IF (FNc{m,2)=FNc(c,2)) AND (FNc(m,6 
)=FNc(c,3)) THEN f=1: x=: GOSUB 2430: m 
=4 

2670 NEXT m 

2680 IF #=1 THEN n=15: 6010 2700 


2690 n=39 


2700 RETURN 

2710 REM 

2720 REM select object at random from ch 
aracter’s location 

2730 REM 

2740 b=0 

2750 FOR s=i 10 12 

2760 IF PNb(s,2)<>FNc(c,2) THEN GOTO 278 
0 

2770 GOSUB 4180: IF q=1 THEN bes: s=i2 
2780 NEXT s 
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2790 IF b-0 THEN GOTO 2750 
2800 RETURN 


2810 REM 

2820 REM move a character 

2830 REM Meee 

2840 IF FNc(c,4)<1 THEN RETURN: REM too 

weak to move 

2850 y=0: f=0: FOR we2 TO 5: IF 1$<VAL‘c 
$(c,2)) ,w="0" THEN GOTO 2910 — 

2860 GOSUB 4180: IF g=1 THEN f=1: c$(c,9 
)="7": GOTO 2880 

2870 GOTO 2910 

2880 IF FNc(c,2)=r THEN PRINT c$(c,1);° 
leaves the room..."3: y=l 

2890 c$(c,2)=1$(VAL(c$(c,2)) Ww): wed: IF 
FNc(c,2)=r THEN PRINT c$(c,1)5" enters 
the room...°3: y=! 

2900 IF y=1 THEN y=c: GOSUB 2250: c=y: P 
RINT: PRINT: REM update characters prese 
nt message 

2910 NEXT w: IF f=0 GOTO 2850 

2920 RETURN 














3000 REM 

3010 REN action table 

3020 REM 

3030 FOR n=1 TO 3: GOSUB 4090: NEXT n: m 

$=c$(c,1)+" takes another look at the bo 

dy, and suddenly realises the hideous tr 

uth. "+CHR$(34)+"The pasty’s made of cat 

-food" +CHR$(34)+° ": GOSUB 4630 

3040 GOSUB 4390: m$=m$t"yells, and in a 

mad rush the assembled company scramble 

over the bar and attack Fred the Barman, 
who pleads with them to no avail to spa 

re his miserable life.": GOSUB 4430: 605 

UB 4720 

3050 FOR n=1 TO 2000: NEXT n: GOSUB 4720 
: mé="...and the next day Fred the Barma 

n is nowhere to be seen. However, a num 

ber of oddly shaped pasties are availab 
le to feed the ever-hungry clientele of 

the Dog and Bucket...": GOSUB 4630: GO0SU 

B 4720: END 

3060 h(c)=255: GOSUB 4680: m$=c$(c,1)+m$ 
: GOSUB 44630: GOSUB 4720: RETURN 

3070 z=c: GOSUB 4680: n$=c$(c,1)+m$: 60S 

UB 4300: mé=n$tm$+"stomach, and immediat 
ely expires. The other characters are t 
co involved with their drinks to notice. 
eo": GOSUB 4630: GOSUB 4720: g=0: c${c,4 
="-{": RETURN 

3080 c$(c,4)="10": g=0: IF t(t,n,4)>0 TH 
EN GOSUB 4480: m#=c$(c,1)tm$: GOSUB 4430 
: GOSUB 4720 | | 
3090 RETURN 

3100 a=20: GOSUB 4350; IF v<>5 THEN RETU 
RN 

3110 GOSUB 4680: GOSUB 44630: GOSUB 4720: 
RETURN 

3120 a=2: GOSUB 4350: IF v<)0 THEN RETURN 





3130 mé=c$(c,1)+" tries to wake "tc$(x,! 
)+" without success...": GOSUB 4630: GOS 
UB 4720: RETURN 

3140 GOSUB 4680: m$=CHR$(34) +m$+CHR$( 34) 
#" says “tc$(c,1)+" to "+c$(x,1): GOSUB 
4630: GOSUB 4720: RETURN 

3130 GOSUB 44680: m8=CHRS( 34) +m+CHR$(34) 
+", "#c$(c,1)+" asks “tc$(x,1): GOSUB 44 
30: GOSUB 4720: RETURN 

3160 GOSUB 4680: m=c$(c,1)#" and "tc$(x 
s1)+m$: GOSUB 4630: GOSUB 4720: c${c,5)= 
"10°: RETURN 


3170 GOSUB 4680: m$=CHR$(34) +m$#CHR$(34) 


+" says "tc$(c,1)#" to "tc$(x,1): GOSUB 

4630: GOSUB 4720: RETURN 

3180 GOSUB 44680: m=c$(c,1)+m$: GOSUB 44 

30: GOSUB 4720: c${c,5)="5": RETURN 

3190 GOSUB 4680: m$=c$(c,1)+m$: GOSUB 44 

30: GOSUB 4720: RETURN 

3200 GOSUB 4680: m$=CHRS( 34) +m$+CHR$( 34) 

#" says "tc$(c,1)+" dejectedly...": GOSU 

B 4630: GOSUB 4720: c$(c,5)="10": RETURN 

3210 GOSUB 4680: m$=CHR$(34) +m$+4CHRS( 34) 

+" says “tc$(c,1): GOSUB 4630: GOSUB 472 

O: c$(c,9)="3": RETURN 

3220 x=FNc(c,8): m$=c$(c,1)+" and "+c$¢x 

,1)4° are deep in conversation.": GOSUB 

4630: GOSUB 4720: GOSUB 4220: x=0: RETUR 

N 

3230 x=FNc(c,3): IF x)0 THEN GOSUB 4680: 

mé=c$(c,1)+" drunkenly examines “+b$(x, 

1)+m$: GOSUB 4630: GOSUB 4720: GOSUB 422 

0: x0 

3235 RETURN 

3240 GOSUB 4680: m$=CHR$<( 34) +m$+CHRS( 34) 

+" yelps "tc$(c,1): c$(c,5)="4": GOSUB 4 

630: GOSUB 4720; GOSUB 4220: RETURN 

9250 GOSUB 4680: m$=CHRS( 34) +m$+CHRS(34) 

+" howls "#c$(c,1)+", looking at the °: 

GOSUB 4630: IF FNc(c,3)=3 THEN mé="pasty 

-": GOSUB 4630: GOSUB 4720: GOSUB 4220: 

RETURN ) 

3260 m$="sandwich.": GOSUB 4630: GOSUB 4 

720: GOSUB 4220: RETURN , 

 —- $270 GOSUB 4680: m$=c$ic.1)+m$: GOSUB 44 
30: GOSUB 4300: GOSUB 44630: m$="drink*: 

GOSUB 4430: GOSUB 4720: RETURN 

3900 REM 

3710 REM gosub table 

3920 REM 

3930 s(c)=255: m$=c$(c,1)4" Kneels down 

beside the prostrate body of “*+c$(z,1)+" 

» The horrible truth slowly dawns, but 

the others seem too drunk to pay any inm 

ediate attention...": GOSUB 4630: GOSUB 

4720: RETURN 

3940 f=0:x=0: FOR y=i TO 6 


_ 9990 IF y=c THEN GOTO 3970 


3960 IF PNe(y,2)=FNc(c,2) THEN f=1: 6OSU 
B 4180: IF g=i THEN x=y: GOSUB 2430: y=6 
3970 NEXT y: IF f=0 THEN ¢(3,1,4)=2: RET 
URN 

3980 IF x=0 THEN GOTO 3940 

3990 RETURN 

3995 c$(c ,5)=FNe$(c$(c,5),1): RETURN 






























































































































































































































































































































































































































































































































































































































































4000 REM 

4010 REM low level system subroutines 
4020 REM 

4030 REM clear the screen 

4040 REM 

4050 CLS: RETURN 

4060 REM 

4070 REM beep 

4080 REN 


4090 PRINT CHRS(7);: RETURN 


4100 REM 

4110 REM get a character from the Keyboa 
rd 

4120 REM 

4130 iS=INKEY$: IF it="° GOTO 4130 

4140 RETURN 

4150 REM 

4160 REM random number routine 

4170 REM 

4180 g=INT(RND(1)#2)+1: RETURN 

4190 REM 

4200 REM zero character codes 

4210 REM 

4220 c$(c,8)="0": c$¢c,9)="0": RETURN 
4230 REM 

4240 REM test to see if Key pressed 
4250 REM 

4260 i%=INKEY$: RETURN 

4270 REM 

4280 REM print his/her 

4290 REM 

4300 IF c${c,7)="4" THEN m$="her *: RETU 
RN 

4310 m$="his ": RETURN 

4320 REM 

4330 REM variable random number routine 
4340 REM 

4350 v=INT(RND(2)%a): RETURN 

43460 REM 

4370 REM print he/she — 

4380 REM 

4390 IF c$(c,7)="4" THEN m8="she ": RETU 
RN 

4400 m@="he “: RETURN 

4500 REM 

4510 REM jumpblock 

4520 REM 

4530 REM re-entrant nodes 

4540 ON t(t,n,4) GOSUB 3930 3940 ,3995 
4350 RETURN 

4560 REM action nodes 

4570 ON t¢(t,n,3) GOSUB 3030 3060, 3070 , 30 
80,3100 ,3120 3140 ,3150 ,31460 3170, 3180 ,31 
90 ,3200 ,3210 , 3220 ,3230 ,3240 ,3250 3270: R 
ETURN 


4600 REM 

4610 REM print messages if player presen 
' 

4620 REM 

4630 IF FNc(c,2)=r THEN PRINT ni; 
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4640 m$="": RETURN 

4650 REM 

4660 REM select a message from data stat 
ement 

4670 REM 

4680 RESTORE 7030: FOR m=1 TO t(t,n,4): 
READ m$: NEXT m: RETURN 

4690 REM 

4700 REM print a blank line 


4710 REM 


4720 IF FNc(c,2)=r THEN PRINT: PRINT 
4730 RETURN 












































































































































3000 REM object tree routines 

3010 p=0: REM zero print flag 

9020 IF FNc(c,2)=r THEN p=! 

3030 n=1: REM start at node 1 

3040 IF n>21 GOTO 5070 

3090 kK=c(k¢(i nti: IF k¢1,nJ=12 THEN 60 

SUB 4180: k=q 

3060 n=t(1,n,k): GOTO 5040 

3070 IF nd=24 GOTO 5090 

3080 ON <n-21) GOSUB 2540,2640: GOTO 504 

0 

3090 ON (n-23) GOTO 5100 ,5130 5140 ,5180, 

3210 5240 ,5260 ,9270 , 5280 , 5300 5310 ,9330, 

3340 5360 ,5370 5430 

3100 GOSUB 2740: c$<c,3)=STRS<b) 

S110 IF p=i THEN PRINT c${c,1);" picks u 

p* sb$(b,1): PRINT 

3120 b$(b,2)="0": c$(c,9)="4": RETURN 

9130 c$(c,3)=c$(c,d) 

3140 IF p=i THEN PRINT c$(c,1);° picks u 

p"sFNi$: PRINT 

3150 BSCVAL(c$(c,3)) ,2="0": c$(c,9)="4" 
: RETURN 

Jid0 IF p= THEN PRINT c${c,1);" takes a 
sip from" sFNi$: PRINT 

3170 c$¢c ,4)=FNa$(c$(c 4) ,-1): RETURN 

3180 GOSUB 4180: IF (p=1) AND (q=1) THEN 
PRINT c$(c,1)3" is eating the sandwich. 
*: PRINT 

5190 c$(c ,4)=FNas(c$(c 4) ,-2): c$(c,9)=" 
6°: GOSUB 4180: IF g=1 THEN GOSUB 4220 

9200 RETURN 

9210 IF p=i THEN PRINT c$(c,1):" takes a 
tentative bite of the pasty, groans, an 
d drops it on the floor.": PRINT 

9220 g=c: REM set pasty eaten flag 

9230 c$(c,3)="0": c$(c,4)=FNmS(c$(c,4) , 1 

0): b$(3,2)=c$(c,2): RETURN 

9240 IF p=1 THEN PRINT c$(c,1);" puts do 

wn" :FNi$: PRINT 

9290 BSCVAL(c$(c ,3)) ,2)=c$(c,2): c$¢c,3) 


="0": RETURN 


5260 c$(c,5)=FNw$(c${c,5),-1): RETURN 
5270 GOSUB 5240: RETURN 

5280 IF p=1 THEN PRINT c$(c,1):" throws" 
sbS(VAL(c$(c,3)),1)3" at "3c$(x,1): PRIN 
; 























3290 c$(x ,4)=FNm$(c$(x 4) 1): bSCVAL(c$¢ 
c,3)) ,2)=c$(c,2): c${x,BI=STRE(c): cx, 
9)="3"s c¥(c,3)="0": RETURN 

5300 GOSUB 4290: RETURN 

3310 IF p=i THEN PRINT "I think I’ve got 
your drink, says "sc$<c,1);" to 
1): PRINT 

3320 c$(c ,B=STREC x): c$(c,F)="2": 

N 

3330 c$(c ,4)=FNa$(c$(c 4) ,2): RETURN 
3340 IF p=i THEN PRINT c$(c,1)3" gives"; 
PNi$:" to “sc$<x,1): PRINT 

3300 c$¢x ,3)=c$(c,3): c$(c,d="0": 
B)=STR$(c): c${c,9="1": RETURN 
3360 GOSUB 4220: RETURN 

3370 IF p=0 GOTO 3420 

3380 IF p=1 THEN PRINT c${c,1);" is drun 

Kenly thanking "sc$(VAL(c$(c,8)),1)3° fo 

r returning “3 

3370 IF p=i AND c${c,7)="4" THEN PRINT ° 

her ":: GOTO hid 

3400 PRINT “his * 

3410 PRINT drink" PRINT 

3420 GOSUB 4220: RETURN 

0430 RETURN 

3440 REM 

5450 REM sort trees 

3460 n=! 

3470 ON (t(t,n,1)+1) GOTO 5480 5490 5500 
2020 0000 , 0040 9990 

0480 K=cCt(tyn,2))41: n=tlt,n,2tk): GOTO 
3470 

3490 GOSUB 4530 : n=t(t,n,3): GOTO 5470 

3000 GOSUB 4570 

3010 RETURN 

Joz0 GOSUB 44680: GOSUB 4630: GOSUB 4720 

Jug0 RETURN 

3040 a=t(t,n,4): GOSUB 4350: n=t(t,n,3)+ 

vi GOTO 5470 

Jod0 K=c(t(t,n,2)): n=t(t,n,3)4K: GOTO 5 

470 


RETUR 


c$(c, 




















*sco(X) 
















































































6000 REM 

6010 REM character data 

6020 REM 

6030 DATA "Toby Belcher" ,°2°,°7",°10°,°! 

07°72", mm", "0", "0" 71", "4", “Fiona Frappe 
ee) ee eee eet eg 

"5" "Steve Guig’ "1" 78", 8", 10" "9", 8 

Oo 0", 1 8 ode Short" ,*2","0", 

"20", "10", "10", F50 te 

6040 DATA "Rupert Beer",°2","11°,°10°,°6 

wTdit tm, "0", 70", 71", "6", "Molly Mixer” 
Act er “2" he be 12 tg lg as ls 
ace Spat Ty gs 855" 9255" "0" "a", "0 
8 oo "0", *g* 

4050 REN 

6060 REM location data 

















6070 REM 
6080 DATA "You are in the lounge of the 


Dog and © Bucket. Several shady charact 

ers are gathered together in a corner 
playing dominoes. Behind the counter 
, Fred the Barman looks his usual cheery 
self. Exits lead east.","0","0","2" 
, 0° 


4090 DATA "Behold the saloon of the Dog 
and Bucket which looks as if it could do 


with extensive redecoration. The f 
Toor appears to have been regular] 
y hosed down with beer slops. Doors 


lead west and south.","0","3",°0","1° 
6100 DATA "Ugh! This is the Kitchen, whe 
re the famous Dog and Bucket Cornish 
Pasties are prepared for an ever-hung 

ry clientele. You notice a numbe 
r of empty cat-food tins, which is stran 
ge because there are no cats.","2","0",° 
o","0" 

6110 REN 

6120 REM object data (for b$¢12,4)) 

6130 REM 

- DATA " a glass of ge Babes 

" an empty tin of catfood","3","n","n", 

a Dog and Bucket cornish aby: a pers 
vy n®,” a bar-stool","2",°n*,"n",” an as 


: htray","1°,"n",*n" 


6150 DATA " a stale ham sandwich" ,°2","y 
*i"n®," a pint of bitter","0",°n*,"y*,* 

a creme de menthe’,"0°,"n’,°y",° a whisk 
y and water" ,"0","n* ye a neat vodka" 
ee ane ty"! a at of lager","0","n", 
ryt! a gin and ginger ale","0",°n","y* 

6160 REM 

6170 REM character attribute data (for d 

$(11)) 

6180 REM 


$190 DATA "Location" "Strength" ,"Invento 


ry" "Mood" "Own object", "Sex", "Last char 
(Ich)", "Last command code (Icd)","Handl 

e frequency","Move frequency® 

6200 REM 

6210 REM object tree data 

6220 REN 

6230 DATA 1,2,22,12,5,4,2,7,6,3,7,8,4,11 
)10,,12,39,24,12,6,25,9,12,37,6,13,27,12, 

23,29 ,12,30,14,12,26,39,12,28,39 12,31 ,1 

7,7,18,16,8,39,19,9,21 39,10 36,20 12,33 
332,12,30,34,11 38,37 

6240 REM 

6250 REM plot tree data 

6260 REM 

6270 DATA 0,13,2,22,° *,0,1 

3,21 ,4," ",9,0,18,3," ",0,1 

7,7,11," *,0,18,9,8," ify i 
19,1017," * 39,0, 14, ae 
30,0,0," °,2, 0, i 0," "2,0, 
0," *,4,0,0,0," "2, 0,2,4,° 
",2,0,4,3 

6280 DATA ° 

0,0,0,° * 

6300 REM interaction tree 


4,5,3," "40,1 
6.6,7," *0,1 
712,13," *40 
"10,7)1," "14 
5,1," *,4,0,0 
= 2,0,3,2," 


*52,0,4,0,° *,4,0,0,0,° "44, 


6320 DATA 1,0,3,2," °,4,0,0,0,° 


*,0,20,6 
14," ",0,21,7,5," ",4,0,0,0," ",5,0,8,3, 
"42,0,6,0," ",0,22,11,14,° °,0,23,12,! 
7," ",0,24,13,18," ",4,0,0,0," °,4,0,0,0 
9” *,4,0,0,0," "59 0,19,2,° *,4,0,0,0,° 
Tehytady  Upeeyeeyely 
6330 DATA 5,0,19,2," °,4,0,0,0,° 
96" "52,059,575" "42,0,10,8," 
6340 REM general activity tree 
6350 DATA 5,0,2,5," °,0,26,11,7,° °,6,27 
524,7," * ,0,28,8,12,° ",0,29,9,15," "ys 
0,21,3," ",2,0,11,9," ",4,0,0,0," °,4,0, 
0,0," ",4,0,0,0,° ",0,30,10,18," °,5,0,! 
3,257 7 42,0,12,10," ",4,0,0,0," ",5,0,16 
2," "53,0,0,11,° *,3,0,0,12," ° 
6360 DATA 5,0,19,2," °,4,0,0,0,° °,2,0,! 
3,13," ",2,0,14,14," ",2,0,14,15,° "42,0 
14,16," ",4,0,0,0," *,0,11,31,32,° °,4, 
0,0,0," °,5,0,33,3," °,0,11,36,37," °,5, 
0,38,2," ",2,0,14,17," * 
6370 DATA 4,0,0,0," °,2,0,15,0,° *,4,0,0 
50," °,2,0,16,18,° °,4,0,0,0,"  54,0,0,0 
Ms sey *4,0,0,0," °,2,0,18,20 


*,2,0,8 


§ 

6380 REM object awareness tree 

6390 DATA 0,4,8,2," ",5,0,3,5,° °,4,0,0, 

oe *,4,0,0,0,° ",4,0,0,0,° °,4,0,0,0,° 
* 2,0,14,21," °,1,0,9,3," °,9,0,10,4,° 

32,0,19 ae * 2,0,14,23," °,4,0,0,0,° 

»4,0,0,0," * 

7000 REM 

7010 REM message data 

7020 REM 

7030 DATA "A strange smell fills the air 
.» could it be the odour of Catty-Kit A 

La Carte?",* suddenly collapses on the f 

loor, clutching "," looks rather ill, an 

d warns the others not to touch the past 

7040 DATA ‘ examines the tin carefully, 
and assumes a thoughtfull expression.*," 

What are you doing with my drink?* "Wher 

e have you been?* | 

7050 DATA ", in a drunken fit, jump onto 
the table and dance together." 

7060 DATA "You look cheertul",* clambers 
drunkenly onto the bar, tries to dance, 
and falls off again." 

7070 DATA ", in a drunken stupor, sudden 


— ly looks up and peers through the VDU sc 


reen at you....", Fred the Barman pulls 

another pint...","Fred is busy cleaning 

glasses" 

7080 DATA "It’s a dog’s life...","I come 
not to bury Caesar...","Let me tell you 
the story of my life...","Barman, fill 

my glass!* 

7090 DATA "Hi there, everyone...°," as i 

# it held the secret of life.*,"What did 
you do that for!!",°I think I’m going t 

o be sick!" 

7100 DATA "Ahh...This drink is sublime.. 

», 1S desperately hunting for ","Who’s 
got my drink?* 
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CHANGE OF KEY 





b 
configured to suit the needs of any 
application. We look at the ways these 
changes may be implemented through the 
operating system’s key manager. 





The Amstrad operating system has one section, 
called the key manager, that controls all access to 
the keyboard and the joystick. The real power of 
the key manager lies in the fact that the keyboard is 
entirely ‘soft’. This means that the code returned 
from each physical key is user-definable. This 
approach makes installation of programs such as 
CP/M easy, as keys may be tailored to give the 
required codes rather than modifying the program 
to accept the codes produced by default. 

There are two types of code that may be 
returned from a keypress — either a single ASCII 
character or an expansion token. An expansion 
token can be thought of as a flag to return a string 
of characters from a single keypress, rather than an 
individual character. 

The keyboard is sampled every one-fiftieth of a 
second on the general- purpose ticker. A key 
state map is maintained to keep a record of which 
keys were pressed on the last sampling. This map is 
used to ensure the keys are not read more than 
once and to determine whether or not a character 
should be repeated. A buffer is also maintained 
that stores the codes returned by the keys at the 
time their presence was first detected; these may 
be interpreted as either ASCII characters or 
expansion tokens. 


THE KEY MANAGER 


The key manager may be accessed at several 
different levels. The lowest level allows the user to 
test whether a physical key is being pressed at the 
current time. 

The second level returns the single character 
that has been assigned to a key. This character will 
either be an ASCII value or an expansion token. If 
it is an expansion token, then it is up to the user to 
determine what its interpretation is. This level 
takes into account the current state of the Shift and 
Control keys when determining which character 
should be returned. 

The highest level simply returns the next 
character that has been typed at the keyboard. 
This character may either correspond to a single 
keypress or it may be the next character from an 
expansion token. 

Associated with each key are three translation 
tables that determine the code returned when a 
keypress is detected in its normal, shifted and 
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control states. Each of these entries may be 
determined and set individually, using the entries 
detailed in the diagram. 

The value that may be assigned to each state can 
range from 0-255 and is normally interpreted as a 
character code. However, certain codes have 
particular meanings as detailed in the diagram. 
Note that characters from &E0O to &FC have special 
meaning under BAsic and so if a program assigns a 
key to return one of these tokens, it should reassign 
them before returning to BASIC. 

The first listing shows how a set of translations 
can be set up on entry to a routine, while at the 
same time saving their initial states. This then 
allows the keys to be reassigned on exit from the 
routine so that the translations become 
transparent to the main program. 


EXPANSION TOKENS 


Codes &80 to &9F are defined as expansion tokens. 
When they are encountered they are stored in the 
buffer unless they are read out using 


Keyboard Management 





Identification COG  cviscrsn0ciismssnsmmeessl 

Each key is assigned a unique key number that cannot be altered 
by the firmware. The ASCII code returned by a key is determined 
by three tables, which return the code for the key in its normal, 
shifted, and control state 


: e 7 a 

















KM_READ_CHAR or KM_WAIT_CHAR. In this case, 
the key manager looks to determine which string is 
assigned to that expansion token and inserts the 
characters in sequence into the buffer until the end 
of the string. 

The expansion strings are stored in a buffer, 
which can be of any size depending on the number 
of strings required. Each string can consist of up to 
255 characters providing there is sufficient room in 
the buffer which must lie in the central 32 Kbytes 
of RAM. The buffer size and location is set using 
KM_EXP_BUFFER. 

Each expansion token may have a string 
assigned to it using KM_SET_EXPAND. The 
characters within the string are not checked by the 
firmware, so it’s possible to return characters such 
as &FC (the break token) to a routine. The strings 
assigned to an expansion token can only be 
examined one character at a time, using the 
KM_GET_EXPAND entry. 


Every key on the keyboard has a number 
associated with it. This number is unique and 
cannot be altered via the firmware, thus providing 
an absolute method of referring to a key. The key 
numbers are detailed in Appendix III of the 
firmware manual and are also thoughtfully 
provided on the disk-drive cases of the CPC 664 
and the 6128. 

The KM_TEST_KEY entry is the lowest level entry 
into the key manager. It allows the user to 


Very Impressive 

The firmware maintains a key-state map that registers the keys 
pressed at the time of the last general-purpose ticker interrupt 
(every 50th of a second). Key values are stored in a buffer and 

the firmware lets you either test for a keypress or wait for one 





Expansion 0 

ASCII codes &80 to &9F are treated as ‘expansion tokens by the 
firmware. These codes are assigned by default to the keys on the 
numeric keypad. Expansion strings can be assigned through 
firmware to any of these tokens. Such strings can be up to 259 
characters in length and may contain control codes 











determine whether a particular key was held down 
on the last keyboard scan, with the exception of 
the Control and Shift keys. This entry is 
particularly useful when only one key is being 
tested; for example, when the keyboard is being 
polled periodically for the Escape key to signify 
that the program should be terminated. 

An entry is also provided exclusively for the 
joysticks: KM_GET_JOYSTICK. This entry reads the 
joystick states from the key state map and is the 
fastest method of determining their current status. 
It's therefore particularly suited to games 
programmers, as joysticks may be read at any time 
regardless of whether or not their positions have 
been altered. 

There are two key manager entries at the . 
second level, KM_READ_KEY and KM_WAIT_KEY. 
KM_WAIT_KEY should be used to return the next 
keypress. If there is an entry in the keyboard 
buffer, then this is translated to either a character 
or an expansion token and returned immediately; 
otherwise, the routine waits for the next keypress 
and then returns its translated value. 
KM_READ_KEY also checks for the character from 
the keyboard buffer and if there is one then it is 
translated; otherwise, the routine immediately 
returns, flagging that the buffer is empty. 
KM_WAIT_KEY is therefore suitable for use when a 
program cannot continue until it has received 
input from the user — for example, when a choice 
from a menu is required. KM_READ_KEY should be 
used when the keyboard is being polled for a 
keypress. 

The third level has two corresponding entries — 
KM_READ_CHAR and KM_WAIT_CHAR. The only 
difference between these and the second level 
entries is that only characters may be returned. If 
an expansion token is encountered, then the 
corresponding expansion string is read out 
character by character before the next entry from 
the keyboard buffer is examined. 
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; . THE PUTBACK CHARACTER 
oe The key manager has a one-byte buffer in addition 
~ to the keyboard buffer, known as the putback 
_ character. This is checked before the main buffer 
Ee Se and if it contains a character, it is given priority. 
_ This allows a character to be effectively inserted at 
ae the head of the buffer which could be used, for 
_ example, to flag that an event had occurred. The 
= _ putback character is overwritten by the key 
manager when a break is detected, because the 
en orks eee break token is inserted as the putback character. — 
ae - The diagram shows the various levels at which a 
ea ae i character may be returned from the key manager. 
gS age, Each key on the keyboard has three repeat 
2 5 ere parameters associated with it. The first determines 
Se = whether or not the key is allowed to repeat; the 
: mia second specifies the delay between the detection 
os _ Of the keypress and when it is permitted to repeat; 
a and the third is the delay between each individual 
“Fe : repeat. Delays are specified in multiples of 
| keyboard scans and therefore correspond to an 
me fe _ Interval of one-fiftieth of a second. ; 
_ The current settings for delays may be 
3 etermined using KM_GET_DELAY, or altered using 
ee _ KMLSET_DELAY. The delays apply to the entire 
cs | | keyboard so it is not possible to specify separate 
_ delays for different keys. 
Jug fe ve __ The parameter that determines whether or not. 
a key is allowed to repeat is read and altered using 
ee the KM_GET_REPEAT and the KM_SET_REPEAT 


| ~ * CHteS. 


. BREAKS — 
a The Escape key is treated by the key manager in a 
ae different way to the other keys. Whenever it is 
Se ee _ pressed, the KM_TEST_BREAK indirection is called. 
: cee: ee _ This routine checks to see if Control and Shift are 
m2 _ also pressed, in which case a reset is performed; 
ge. OS _ otherwise the routine returns. By patching this 
indirection with a RET instruction it is therefore 
| possible to prevent a reset occurring within a 
ae Pe ss program. | 

. rend There is also an event provided to deal with 

ez oP mae breaks. This event may be initialised, enabled or 





disabled using the firmware. By default, the event 
is disabled, so a special routine must be created 
that can be called whenever a Break keypress is 
detected. — 

If control is returned after calling 
KM_TEST_BREAK, the key manager tests to see 
whether the break event is enabled. If it is, then a 
character &EF is inserted into the buffer, and the 
break event is triggered. The marker is provided to 
allow the event to flush the keyboard buffer up to 
the point where the break was encountered. 

This look at the key manager concludes our 
series on the Amstrad CPC operating system. 
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